home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / version.pm < prev    next >
Text File  |  2008-07-24  |  376b  |  26 lines
  1. #!perl -w
  2. package version;
  3.  
  4. use 5.005_04;
  5. use strict;
  6.  
  7. use vars qw(@ISA $VERSION $CLASS *qv);
  8.  
  9. $VERSION = 0.74;
  10.  
  11. $CLASS = 'version';
  12.  
  13. # Preloaded methods go here.
  14. sub import {
  15.     my ($class) = @_;
  16.     my $callpkg = caller();
  17.     no strict 'refs';
  18.     
  19.     *{$callpkg."::qv"} = 
  20.         sub {return bless version::qv(shift), $class }
  21.     unless defined (&{"$callpkg\::qv"});
  22.  
  23. }
  24.  
  25. 1;
  26.